home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VCC.ZIP / BROWSER.FRM < prev    next >
Text File  |  1994-02-01  |  11KB  |  374 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Code Browser using VideoSoft VSAWK"
  4.    ClientHeight    =   5415
  5.    ClientLeft      =   465
  6.    ClientTop       =   1200
  7.    ClientWidth     =   7680
  8.    Height          =   5880
  9.    Left            =   375
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5415
  12.    ScaleWidth      =   7680
  13.    Top             =   825
  14.    Width           =   7860
  15.    Begin VideoSoftAwk VSAwk3 
  16.       FS              =   " ,    "
  17.       Left            =   2025
  18.       Top             =   4500
  19.    End
  20.    Begin VideoSoftAwk VSAwk2 
  21.       FS              =   " ,    "
  22.       Left            =   1530
  23.       Top             =   4500
  24.    End
  25.    Begin VideoSoftAwk VSAwk1 
  26.       FS              =   " ,    "
  27.       Left            =   990
  28.       Top             =   4500
  29.    End
  30.    Begin CommonDialog CMDialog 
  31.       Left            =   450
  32.       Top             =   4455
  33.    End
  34.    Begin VideoSoftElastic VSElastic1 
  35.       Align           =   5  'Fill Container
  36.       AutoSizeChildren=   4  'Uneven Vertical
  37.       BackColor       =   &H0000FF00&
  38.       BorderWidth     =   0
  39.       Height          =   4485
  40.       Index           =   5
  41.       Left            =   0
  42.       Splitter        =   1  'Yes (with uneven spacing)
  43.       TabIndex        =   5
  44.       Top             =   930
  45.       Width           =   7680
  46.       Begin VideoSoftElastic VSElastic1 
  47.          AutoSizeChildren=   4  'Uneven Vertical
  48.          BackColor       =   &H00C0C0C0&
  49.          BorderWidth     =   0
  50.          Height          =   1725
  51.          Index           =   1
  52.          Left            =   0
  53.          Splitter        =   1  'Yes (with uneven spacing)
  54.          TabIndex        =   9
  55.          Top             =   2760
  56.          Width           =   7680
  57.          Begin VideoSoftElastic VSElastic1 
  58.             AutoSizeChildren=   2  'Uneven Horizontal
  59.             BackColor       =   &H0000FF00&
  60.             BorderWidth     =   1
  61.             Height          =   1725
  62.             Index           =   2
  63.             Left            =   0
  64.             Splitter        =   1  'Yes (with uneven spacing)
  65.             TabIndex        =   12
  66.             Top             =   0
  67.             Width           =   7680
  68.             Begin ListBox List1 
  69.                FontBold        =   0   'False
  70.                FontItalic      =   0   'False
  71.                FontName        =   "Courier New"
  72.                FontSize        =   9
  73.                FontStrikethru  =   0   'False
  74.                FontUnderline   =   0   'False
  75.                Height          =   1605
  76.                Left            =   15
  77.                Sorted          =   -1  'True
  78.                TabIndex        =   10
  79.                Top             =   15
  80.                Width           =   2415
  81.             End
  82.             Begin ListBox List2 
  83.                FontBold        =   0   'False
  84.                FontItalic      =   0   'False
  85.                FontName        =   "Courier New"
  86.                FontSize        =   9
  87.                FontStrikethru  =   0   'False
  88.                FontUnderline   =   0   'False
  89.                Height          =   1605
  90.                Left            =   2520
  91.                Sorted          =   -1  'True
  92.                TabIndex        =   11
  93.                Top             =   15
  94.                Width           =   5145
  95.             End
  96.          End
  97.       End
  98.       Begin VideoSoftElastic VSElastic1 
  99.          AutoSizeChildren=   4  'Uneven Vertical
  100.          BackColor       =   &H00C0C0C0&
  101.          BorderWidth     =   0
  102.          Height          =   2670
  103.          Index           =   4
  104.          Left            =   0
  105.          TabIndex        =   6
  106.          Top             =   0
  107.          Width           =   7680
  108.          Begin TextBox Text1 
  109.             FontBold        =   0   'False
  110.             FontItalic      =   0   'False
  111.             FontName        =   "Courier New"
  112.             FontSize        =   9
  113.             FontStrikethru  =   0   'False
  114.             FontUnderline   =   0   'False
  115.             ForeColor       =   &H00FF0000&
  116.             Height          =   2115
  117.             Left            =   0
  118.             MultiLine       =   -1  'True
  119.             ScrollBars      =   3  'Both
  120.             TabIndex        =   7
  121.             Top             =   555
  122.             Width           =   7680
  123.          End
  124.          Begin VideoSoftElastic VSElastic1 
  125.             BackColor       =   &H00000000&
  126.             BevelInnerWidth =   0
  127.             BevelOuterWidth =   0
  128.             Caption         =   "Visual Basic Code"
  129.             CaptionPos      =   4  'Center Center
  130.             FontBold        =   -1  'True
  131.             FontItalic      =   0   'False
  132.             FontName        =   "Arial"
  133.             FontSize        =   13.5
  134.             FontStrikethru  =   0   'False
  135.             FontUnderline   =   0   'False
  136.             ForeColor       =   &H000000FF&
  137.             Height          =   465
  138.             Index           =   3
  139.             Left            =   0
  140.             TabIndex        =   8
  141.             Top             =   0
  142.             Width           =   7680
  143.          End
  144.       End
  145.    End
  146.    Begin VideoSoftElastic VSElastic3 
  147.       Align           =   1  'Align Top
  148.       BackColor       =   &H00C0C0C0&
  149.       BevelOuter      =   1  'Raised
  150.       CaptionPos      =   4  'Center Center
  151.       FloodColor      =   &H0080FFFF&
  152.       FloodDirection  =   1  'Right
  153.       Height          =   420
  154.       Left            =   0
  155.       TabIndex        =   4
  156.       Top             =   510
  157.       Width           =   7680
  158.    End
  159.    Begin VideoSoftElastic VSElastic1 
  160.       Align           =   1  'Align Top
  161.       AutoSizeChildren=   1  'Even Horizontal
  162.       BackColor       =   &H00C0C0C0&
  163.       BevelOuter      =   1  'Raised
  164.       Height          =   510
  165.       Index           =   0
  166.       Left            =   0
  167.       TabIndex        =   3
  168.       Top             =   0
  169.       Width           =   7680
  170.       Begin CommandButton Command1 
  171.          BackColor       =   &H00C0C0C0&
  172.          Caption         =   "&Open.."
  173.          Default         =   -1  'True
  174.          Height          =   330
  175.          Index           =   0
  176.          Left            =   90
  177.          TabIndex        =   0
  178.          Top             =   90
  179.          Width           =   2445
  180.       End
  181.       Begin CommandButton Command1 
  182.          BackColor       =   &H00C0C0C0&
  183.          Caption         =   "&Print..."
  184.          Height          =   330
  185.          Index           =   2
  186.          Left            =   5160
  187.          TabIndex        =   2
  188.          Top             =   90
  189.          Width           =   2430
  190.       End
  191.       Begin CommandButton Command1 
  192.          BackColor       =   &H00C0C0C0&
  193.          Caption         =   "&Copy"
  194.          Height          =   330
  195.          Index           =   1
  196.          Left            =   2625
  197.          TabIndex        =   1
  198.          Top             =   90
  199.          Width           =   2445
  200.       End
  201.    End
  202. End
  203. Option Explicit
  204.  
  205. Dim subtext$
  206.  
  207. ' Example using nested VideoSoft VSAWK
  208. ' Projects need to be saved as TEXT be parsed by VSAWK.
  209. ' Once the project is loaded, just click on the desired
  210. ' subroutine name on list2 and the code will be place on
  211. ' the text box.
  212.  
  213. ' VSElastic is used to automatically resize the form and
  214. ' for flooding status when parsing the file.
  215.  
  216. ' CMDialog is used to open the file.
  217.  
  218. Sub Command1_Click (Index%)
  219.   Select Case Index
  220.  
  221.     Case 0 'Open Button
  222.       ' get file name
  223.       cmdialog.FileName = ""
  224.       cmdialog.DefaultExt = "MAK"
  225.       cmdialog.Filter = "VB Projects (*.mak)|*.MAK|All Files (*.*)|*.*"
  226.       cmdialog.Flags = &H1800&
  227.       cmdialog.Action = 1
  228.       If cmdialog.FileName = "" Then Exit Sub
  229.     
  230.       ' read project
  231.       text1 = ""
  232.       vsawk1.FileName = cmdialog.FileName
  233.       vsawk1.Tag = Left(cmdialog.FileName, Len(cmdialog.FileName) - Len(cmdialog.Filetitle))
  234.       vsawk1.Action = 0
  235.       vselastic3.FloodPercent = 0
  236.       vselastic3 = "Ready"
  237.  
  238.  
  239.     Case 1 ' Clipboard
  240.       If text1 = "" Then MsgBox "Sorry, no code selected": E